home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / shell / tokei4 / src / makedata.bas < prev    next >
BASIC Source File  |  1995-04-03  |  1KB  |  46 lines
  1. 1000 '
  2. 1010 '  時計ｰ用
  3. 1020 '  TIFFファイルから、バイナリデータを抜き出すプログラム   機拡
  4. 1030 '
  5. 1040 DEFINT A-Z
  6. 1050 DATA16$  ="t4data16.tif"
  7. 1060 DATA256$ ="t4data25.tif"
  8. 1070 DATA32K$ ="t4data32.tif"
  9. 1080 SIZE16 = INT((INT((12+7)/8)*16*4+2-1)/2)*10                                         +INT((INT(( 6+7)/8)*10*4+2-1)/2)*2
  10. 1090 SIZE256= INT((12*16+2-1)/2)*10+INT((6*10+2-1)/2)*2
  11. 1100 SIZE32K= INT((2*12*16+2-1)/2)*10+INT((2*6*10+2-1)/2)*2
  12. 1110 DIM BUF( SIZE16 + SIZE256 + SIZE32K - 1 )
  13. 1120 PTR=0
  14. 1130 '
  15. 1140 SCREEN@ 0:CLS
  16. 1150 D1=INT((INT((12+7)/8)*16*4+2-1)/2)
  17. 1160 D2=INT((INT(( 6+7)/8)*10*4+2-1)/2)
  18. 1170 LOAD@ DATA16$
  19. 1180 GOSUB *SUB
  20. 1190 '
  21. 1200 SCREEN@ 2:CLS
  22. 1210 D1=INT((12*16+2-1)/2)
  23. 1220 D2=INT((6*10+2-1)/2)
  24. 1230 LOAD@ DATA256$
  25. 1240 GOSUB *SUB
  26. 1250 '
  27. 1260 SCREEN@ 1:CLS
  28. 1270 D1=INT((2*12*16+2-1)/2)
  29. 1280 D2=INT((2*6*10+2-1)/2)
  30. 1290 LOAD@ DATA32K$
  31. 1300 GOSUB *SUB
  32. 1310 '
  33. 1320 SAVE@ "tokei4.dat",BUF
  34. 1330 END
  35. 1340 '
  36. 1350 *SUB
  37. 1360 FOR I=0 TO 9
  38. 1370     GET@A(I*12,0)-(I*12+11,15),BUF,PTR
  39. 1380     PTR=PTR+D1
  40. 1390 NEXT I
  41. 1400 GET@A(120,0)-(125,9),BUF,PTR
  42. 1410 PTR=PTR+D2
  43. 1420 GET@A(126,0)-(131,9),BUF,PTR
  44. 1430 PTR=PTR+D2
  45. 1440 RETURN
  46.